Bar Chart

source("../lib/plot-element.R")

p <- plot_ly(x = 1:10, y = 1:10) %>% add_markers()
p

plotly::save_image(p, file = "../figure/export-png.png", width = 800, height = 600)
plotly::save_image(p, file = "../figure/export-svg.svg", width = 600, height = 600)
plotly::save_image(p, file = "../figure/export-pdf.pdf")